home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Utilities / Laplace / Projects / physic_PI_43 < prev    next >
Text File  |  1996-06-28  |  1KB  |  56 lines
  1. #LAPLACE
  2. #USEFLOAT=FALSE
  3. #SIMPLIFY=TRUE
  4. #ERRBND=15
  5. #EXPDSP=5
  6. #PREC=8
  7. #F1=f(x)=
  8. #F2=g(x)=
  9. #F3=h(x)=f(x)/g(x)
  10. #F4=matrix(
  11. #F5=vector(
  12. #F6=diff(f)
  13. #F7=diff(g)
  14. #F8=diff(h)
  15. #F9=taylor(f,0)
  16. #F10=taylor(f,1)
  17. #F11=%(run type s:startup-sequence)
  18. #F12=
  19. #F13=
  20. #F14=
  21. #F15=
  22. #F16=
  23. #F17=
  24. #F18=
  25. #F19=
  26. #F20=
  27. m_w=422,c_w=4.182
  28. W(t_1,t_2,~t)=c_w*m_w*(t_2-~t)/(~t-t_1)
  29. W(27.5,46.5,45.25)
  30. dW_t1(t_1,t_2,~t)=diff(W,t_1)
  31. dW_t2(t_1,t_2,~t)=diff(W,t_2)
  32. dW_t(t_1,t_2,~t)=diff(W,~t)
  33. dW(t_1,t_2,~t)=sqrt((dW_t1(t_1,t_2,~t)*0.1)^2 + (dW_t2(t_1,t_2,~t)*0.1)^2 + (dW_t(t_1,t_2,~t)*0.1)^2)
  34. eval(dW(27.5,46.5,45.25))
  35.  
  36. m_w=317,c_w=4.182,m_eis=144
  37. Delta_eis(W,t_1,t_2,~t)=(W+m_w*c_w)*(t_2 - ~t)/m_eis - c_w*(~t-t_1)
  38. Delta_eis(124.28,0,40.3,10)
  39. a(W,t_1,t_2,~t)=diff(Delta_eis,W)
  40. b(W,t_1,t_2,~t)=diff(Delta_eis,t_1)
  41. c(W,t_1,t_2,~t)=diff(Delta_eis,t_2)
  42. d(W,t_1,t_2,~t)=diff(Delta_eis,~t)
  43. gag(W,t_1,t_2,~t)=sqrt((a(W,t_1,t_2,~t)*68.55)^2 + (b(W,t_1,t_2,~t)*0)^2 + (c(W,t_1,t_2,~t)*0.4)^2 + (d(W,t_1,t_2,~t)*0.4)^2)
  44. gag(124.28,0,40.3,10)
  45.  
  46. P_1=108*2.2,P_2=137*2.88,m=10
  47. A(t_1,t_2)=(P_2*t_2 - P_1*t_1)/(t_2-t_1)
  48. A(98.75,59)
  49. dA(t_1,t_2)=sqrt((diff(A,t_1)*2.06)^2 + (diff(A,t_2)*1.63)^2)
  50. dA(98.75,59)
  51. lambda(A,t_1)=(P_1-A)*t_1/m
  52. lambda(A(98.75,59),98.75)
  53. dl(A,t_1)=sqrt((diff(lambda,A)*dA(98.75,59))^2 + (diff(lambda,t_1)*2.06)^2)
  54. dl(A(98.75,59),98.75)
  55.  
  56.